10 POKE52,52:POKE56,52:CLR:POKE53281,0:POKE53280,0
20 DV=PEEK(186):IFDV<8THENDV=8
30 PRINT"[147]":GOSUB60000
40 DIMW$(110),B(15),S$(17),M$(17),T$(17),MC(17),BR(17)
50 UNPACK=13824:HG=13827:SR=52480:SQ=52486:G=49153:IP=13312
52 SYS57812"ANTH 3400-3747",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493
54 SYS57812"ANTH-FLAG.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
56 PRINT"[147]":POKE251,64:POKE252,96:POKE253,80:SYSUN
57 TQ=TI
58 POKE252,96:POKE253,80:SYSHG
60 SYS57812"ANTH FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
80 SYS57812"ANTH C000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
82 IFTI<TQ+180THEN82
90 FS$="[129][193][206][212][200][197][205][211] [193][206][196] [198][204][193][199][211]"
100 SP$="                                        "
110 SYSSR,96,76,56
120 TP$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
130 BT$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
140 FORI=0TO15:READS$:S$(I)=S$+".SHP":M$(I)=S$+".MUS":T$(I)=S$+".TXT"
150 READMC(I),BR(I):NEXT
151 DATANEW ZEALAND,1,5
152 DATANICARAGUA,0,5
153 DATANIGER,0,6
154 DATANIGERIA,0,6
155 DATANORWAY,0,5
156 DATAOMAN,0,6
157 DATAPAHANG,0,5
158 DATAPAKISTAN,0,6
159 DATAPANAMA,0,5
160 DATAPAPUA NG,0,5
161 DATAPARAGUAY,0,5
162 DATAPENANG,0,5
163 DATAPERAK,0,5
164 DATAPERLIS,0,5
165 DATAPERU,0,5
166 DATAPHILIPPINES,0,5
200 SYSHG
210 GOTO600
220 :
230 :REM BOX
240 :
250 POKE214,Y:PRINT
260 PRINTTAB(X)"[176]"LEFT$(TP$,XX)"[174]"
262 PRINTTAB(X)"[170]["LEFT$(SP$,XX-2)"][180]"
270 FORII=2TOYY:PRINTTAB(X)"[170]"LEFT$(SP$,XX)"[180]":NEXT
272 PRINTTAB(X+1)"[145]<"TAB(X+XX)">"
280 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]"
290 RETURN
300 :
310 :REM LOAD PIC/MUS/TXT
320 :
330 POKE214,20:PRINT:PRINTTAB(14)"[155][204]OADING [208]ICTURE[145]"
340 SYS57812S$(S),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
350 PRINTTAB(22)"[205]USIC  [145]"
360 SYS57812M$(S),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
370 PRINTTAB(22)"[215]ORDS  [145]"
380 FORI=0TO99:W$(I)="":NEXT
390 SYS13312,T$(S),DV
400 H=PEEK(252)*256+PEEK(251)
410 W$(0)=MID$(W$(0),3)
420 PRINTTAB(14)"               "
430 RETURN
440 :
450 :REM DISPLAY/PLAY
460 :
470 POKE251,64:POKE252,96:POKE253,76:SYSUN
480 POKE252,96:POKE253,76:SYSHG
490 SYS49615:POKE781,0:POKE782,128:SYS49664:POKE49152,7:MU=1
500 RETURN
510 :
520 :REM TURN OFF PIC/MUS
530 :
540 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49897:SYS49935:MU=0
550 SYSHG
560 RETURN
570 :
580 :REM LOOP
590 :
600 S=1
610 PRINT"[147]":POKE53272,31
620 GOSUB880
622 POKE214,19:PRINT
624 IFF1THENPRINTTAB(4)"SPACE [154] NEXT SONG  Q [154] QUIT TO MENU":GOTO628
626 PRINTTAB(12)"SPACE [154] STOP SONG
628 [141]330
630 N[178]0
640 [141]470:[151]53280,BR(S)
650 [158]SQ[171]3,"	STOPOPEN"
660 [139]MC(S)[167][158]SQ[171]3,"	OPEN"
670 [129]I[178]0[164]4:[158]SQ,1,20[170]I,[200](SP$,38):[130]
680 [129]I[178]0[164]4
690 [139][195](W$(N[170]I))[179]3[167]710
700 [158]SQ,20[171][181](([195](W$(N[170]I))[173]2)),20[170]I,W$(N[170]I)
710 [130]
720 [158]SQ[171]3,"WAIT"
730 [139][194](49152)[179][177]7[167]A$[178]" ":[137]830
740 JV[178][194](56320):[161]A$:[139]A$[178]""[175](JV[178]127)[167]730
742 [139]F1[167][139]A$[178]"Q"[167]F1[178]0:G[178]0:[141]540:[137]620
750 [139]A$[179][177]""[175](JV[179][177]126)[167]790
760 [139]N[177][178]H[171]5[167]730
770 N[178]N[170]5
780 [137]660
790 [139]A$[179][177]""[175](JV[179][177]125)[167]830
800 [139]N[179]2[167]730
810 N[178]N[171]5
820 [137]660
830 [139]A$[178]" "[176]JV[179]112[167][141]540:S[178](S[170]1)[175]15:[137]620
840 [137]730
850 :
860 :[143] MENU SCREEN
870 :
880 [151]53281,0:[151]53280,0
882 [139]S[178]0[167]S[178]1:F1[178]0:[137]1050
890 [139](G[178]1)[175](MC(S[171]1)[178]0)[175](F1[178]1)[167]1050
900 [139](G[178]1)[175](MC(S[171]1)[178]0)[175](F1[178]0)[167]1050
910 G[178]1:[153]"LOAD":X[178]2:XX[178]35:Y[178]0:YY[178]21:[141]250
920 [153]"FOR"[163]10)"ORTANTAN^           ORTANTAN^
930 PRINTTAB(10)"[171][192][192][179][158]NTHEMS AND[129] [171][192][179][158]LAGS
940 [153][163]10)"FOREXP  /TANTANTANTANTANTAN    TANEXP
950 PRINTTAB(13)"[145][192][192][192][192][174]  [176]
960 [153][163]13)"SYSOF THEFOR (null)OR^(null)SYSORLD
970 PRINTTAB(13)"[129]       [173][189][173][189]
972 [153]"VERIFY(null)CLOSE(null)CLOSE"[163]33)"WAITVERIFY(null)CLOSE(null)CLOSE"
974 [153]"VERIFY(null)OPENCLOSELOGCLOSE"[163]33)"WAITVERIFY(null)CLOSELOGCLOSE"
976 [153]"VERIFY(null)"[163]33)"(null)"
978 [153]"VERIFY(null)"[163]33)"(null)"
980 [151]214,8:[153]
990 [129]I[178]0[164]7:[153][163]6)""[199](I[170]65);
1000 [153][163]9)"CONT"[200](S$(I),[195](S$(I))[171]4);
1010 [153][163]22)""[199](I[170]73);
1020 [153][163]25)"CONT"[200](S$(I[170]8),[195](S$(I[170]8))[171]4):[130]
1030 [153][163]12)"R  CONT'ROUND THE WORLD
1040 PRINTTAB(12)"Q  [154]QUIT
1050 [139]F1[167][161]A$:[139]A$[178]""[167][142]
1052 [151]214,19:[153]:[153]"                                  "
1060 [161]A$:[139]A$[178]""[167]1060
1070 [139]A$[179][177]"R"[167]1100
1080 F1[178]1:S[178]0
1090 [142]
1100 [139]A$[178]"Q"[167][141]39900:[137]1040
1110 [139]A$[179]"A"[176]A$[177]"P"[167]1060
1120 S[178][198](A$)[171]65:F1[178]0
1130 [142]
10000 D[178][194](186):N$[178]"B.ANTH-FLAG VIII":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
39900 [151]214,18:[153]:[153][163]8)"CONTQUIT? ARE YOU SURE? (YCONT/NCONT)ON"
39910 [161]A$:[139]A$[178]""[167]39910
39920 [139]A$[178]"Y"[167]40000
39930 [153][163]8)"CONT                             ON"
39940 [142]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"PRESENTER":[141]40040:A$[178]"HELLO CONNECT"
40040 [129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40050 [160]2:[159]2,I,2:[160]2:[139]ST[167]40070
40060 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40090
40070 [130]:[139]A$[178]"PRESENTER"[167][142]
40080 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40090 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40100 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40110 [153]"P(null)53272,23:RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]9:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"ATN(null)(null)LEFT$VAL(null)(null) ATN(null)STR$ ASC(null)ATNCHR$(null) (null)ASC (null)LEFT$VAL (null)(null)(null)(null)STR$"
60032 Z$(1)[178]"BY (null)ARQUIS, LEFT$ARNED AND (null)UCKER"
60040 Z$(2)[178]"(LEN) 1996 BY MID$ & ASC (null)UBLISHING, RIGHT$NC.
60050 Z$(4)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(5)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(7)[178]"1-800-594-3370 OR 1-318-221-8718"
60090 [151]214,12:[153]
60100 [129]I[178]0[164]7:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]